home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / opus-mfax / Opus-Fax.rexx < prev    next >
OS/2 REXX Batch file  |  1996-08-02  |  3KB  |  96 lines
  1. /*
  2. **  $VER: OPUS TO MFax 0.1 (02 Aug 1996)  **
  3. **
  4. **        © 1996 Claus Dilly
  5. **
  6. **  PROGRAMNAME:
  7. **      OPUS TO MFax
  8. **
  9. **  FUNCTION:
  10. **      Datei von Opus an MultiFax übergeben und als Fax absenden
  11. **
  12. **  $HISTORY:
  13. **
  14. **   02 Aug 1996 : 0.01: Initial Release
  15. */
  16.  
  17.  
  18. /*F-AN */ /* Configuration */
  19.  
  20. PRINTER="Work3:Drucker/PrintFiles"
  21.  
  22. /*F-AUS*/
  23.  
  24. /*F-AN */ /* Port-Abfrage */
  25.  
  26. /*
  27. parse source . . . . . port     /* Welcher Port ist aktiv           */
  28. port = strip(port)              /* Lösche Leezeichen vom Portnamen  */
  29. OPUSport = port                 /* Übergebe Portnamen an Variable   */
  30. */
  31. OPUS = ADDRESS()
  32.  
  33. /*F-AUS*/
  34.  
  35. /*F-AN */ /* Library abfragen */
  36.  
  37. OPTIONS RESULTS
  38.  
  39. IF ~show("L","rexxarplib.library") THEN DO
  40.    ADDLIB("rexxarplib.library",0,-30,0)
  41. END
  42.  
  43. /*F-AUS*/
  44.  
  45. /*F-AN */ /* Window-Status abfragen */
  46.  
  47. ADDRESS value OPUS                     /* Adresse an DirectoryOpus übergeben */
  48. BUSY ON                                /* Mauszeiger auf BUSY stellen */
  49.  
  50. STATUS 3; FENSTER=RESULT               /* Abfragen welches Fenster aktiv ist */
  51. STATUS 7 FENSTER; ANWAHL=RESULT        /* Abfragen ob ein File angewählt ist */
  52.  
  53. /*F-AUS*/
  54.  
  55. /*F-AN */ /* Fax versenden */
  56.  
  57. IF ANWAHL <=0 THEN                     /* Wenn nichts angewählt wurde */
  58.     DO
  59.         NONE                           /* Alle angewählten Einträge deselektieren */
  60.         NOTIFY ">>> DOPUS-REQUEST <<<\\Bitte zuerst ein File anwählen !\\"
  61.         BUSY OFF                       /* Mauszeiger auf NORMAL stellen */
  62.     END
  63. ELSE
  64.     DO                                 /* Wenn ein File angewählt wurde */
  65.         STATUS 13 "-1";      PATH=RESULT                  /* Name des Verzeichnisses im momentan aktivem Fenster */
  66.         GETNEXTSELECTED "-1"; NAME=RESULT                 /* Name des ersten angewählten Eintrags im aktiven Fenster */
  67.         PARSE VAR PATH; PARSE VAR NAME                    /* Setzt Ergebnis in Variablen */
  68.         NONE                                              /* Alle angewählten Einträge deselektieren */
  69.  
  70.         ADDRESS COMMAND
  71.         'run >nil: SYS:Prefs/Printergfx SYS:Prefs/Presets/gfx-fax.pre use'
  72.         'Run MultiFax:MFRexx'
  73.         'Run MultiFax:Server -rx'
  74.         'Wait' "5 secs"
  75.  
  76.         ADDRESS COMMAND PRINTER PATH||NAME
  77.  
  78.         ADDRESS COMMAND
  79.         'Wait' "6 secs"
  80.  
  81.         ADDRESS 'MultiFaxRexx'
  82.         exitall
  83.  
  84.         ADDRESS COMMAND
  85.         'Wait' "5 secs"
  86.         'run >nil: SYS:Prefs/Printergfx ENVARC:SYS/PrinterGFX.prefs use'
  87.  
  88.         ADDRESS value OPUS
  89.         BUSY OFF                                          /* Mauszeiger auf NORMAL stellen */
  90.     END
  91.  
  92. /*F-AUS*/
  93.  
  94. EXIT
  95.  
  96.